home *** CD-ROM | disk | FTP | other *** search
/ Network CD 1 / Network CD.iso / amospd / 561-570 / apd568 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1992-06-29  |  962b  |  25 lines
  1. RAAP
  2. Procedure RAAP
  3.    B:
  4.    Break Off : Unpack 1 To 0 : Show On : Reserve Zone 1 : Set Zone 1,104,136 To 243,172
  5.    Do 
  6.       S:
  7.       Repeat : Until Mouse Click=1 and Mouse Zone=1
  8.       Ink 28 : Draw 104,172 To 241,172 : Draw 242,136 To 242,171
  9.       Ink 20 : Draw 104,136 To 241,136 : Draw 104,136 To 104,171
  10.       Bell 20 : Wait 10
  11.       Ink 28 : Draw 104,136 To 241,136 : Draw 104,136 To 104,171
  12.       Ink 20 : Draw 104,172 To 241,172 : Draw 242,136 To 242,171
  13.       F$=Fsel$("","","� PICK AN AMOS PROGRAM TO LOAD & RUN ï¿½")
  14.       If F$="" Then Goto S
  15.       If Exist(F$)=0 Then Goto S
  16.       On Error Goto ER
  17.       Screen Open 0,640,512,16,Hires : Curs Off : Cls 0 : Paper 0 : Pen 3 : Centre "<< LOADING PROGRAM >>" : Print : Print : Run F$
  18.       If E=1 Then E=0 : Goto B
  19.    Loop 
  20.    ER:
  21.    Screen Open 0,640,100,8,Hires : Curs Off : Cls 0 : Paper 0 : Pen 3 : Centre "<< NOT AN AMOS PROGRAM >>" : Bell 1 : Wait 86
  22.    E=1
  23.    Resume Next 
  24.    Goto B
  25. End Proc